#!/usr/bin/perl -w
# ouverture en lecture du fichier des comptes utilisateurs
open (F, "/etc/passwd");
# on aurait pu utiliser des variables :
# $fichier="/etc/passwd"; open F, $fichier;
while ($ligne = <F>) 
{
	print "ligne $. : $ligne";
}
close F;


# RESULTATS :
  
#   1. Expérimenter le script suivant.
#Regardez l'image de l'exécution dans la page de site


#   2. Expliquer le fonctionnement de la boucle de lecture : quel r�sultat renvoie l'affectation $ligne=<F>
# Notre script consiste � ouvrir en lecture un fichier des comptes utilisateurs et parcourir ce fichier en utilisant une boucle while.
# A chaque it�ration on fait l'affectation $ligne=<F> qui renvoi true s'il y a un ligne de fichier affect�e � la variable $ligne.
# Enfin on affiche à chaque itération : la chaine de caract�re "ligne" et la variable $. qui contient un compteur sur le descripteur de fichier et la variable $ligne qui contient le ligne du fichier